home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Wonky Flux Batch 2019 02
/
Wonky_Flux_Batch_2019-02.zip
/
Wonky Flux Batch 2019-02
/
021 - HO Utilities - Clock Utility System.dsk
/
FIND.TIMEMASTER.bas
< prev
next >
Wrap
BASIC Source File
|
2019-02-16
|
996b
|
21 lines
10 REM SUBROUTINE FOR INCLUSION IN OTHER PROGRAMS
20 GOSUB 1000
30 IF SLOT = 0 THEN PRINT "TIMEMASTER II H.O. NOT FOUND": END
40 PRINT "TIMEMASTER II H.O. IS IN SLOT "SLOT
50 GOSUB 2000
60 END
1000 REM TIMEMASTER II FINDER
1010 SLOT = 0: FOR I = 1 TO 7:ADDR = 12 *4096 +I *256: REM $CS00
1020 IF PEEK(ADDR) = 8 AND PEEK(ADDR +1) = 120 AND PEEK(ADDR +254) = 178 THEN SLOT = I:I = 7
1030 NEXT : IF SLOT = 0 THEN RETURN
1040 AP = PEEK(ADDR +255):VER = PEEK(ADDR +250): IF VER = 255 THEN VER = 0
1050 PA = 12 *4096 +128 +SLOT *16: REM $C080+SLOT*16
1060 CA = PA +1:PB = PA +2
1070 VER = INT(VER/16) +(VER -16 * INT(VER/16))/10:VER$ = STR$(VER)
1080 RETURN
1090 REM -------------------
2000 REM EXPLAIN MODE ON SCREEN
2010 IF AP = 1 THEN Q$ = "APPLECLOCK MODE (SW 2 ON)": IF VER >0 THEN Q$ = Q$ +" VER " +VER$
2020 IF AP = 3 THEN Q$ = "TIMEMASTER II MODE (SW 2 OFF)": IF VER >0 THEN Q$ = Q$ +" VER " +VER$
2030 PRINT Q$: RETURN
2040 REM -------------------